home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 5 / Gekikoh Dennoh Club Vol. 5 (Japan).7z / Gekikoh Dennoh Club Vol. 5 (Japan) (Track 01).bin / games / kenka / kenka2s.lzh / gri_m.has < prev    next >
Encoding:
Text File  |  1998-08-26  |  6.5 KB  |  308 lines
  1. *---------------------------------------
  2. *
  3. *    âOâèâhê┌ô«
  4. *
  5. *    by Shiroh Nakaya
  6. *
  7. *---------------------------------------
  8.  
  9.     .cpu    68000
  10.  
  11.     .include    OSU.H
  12.  
  13.     .xdef    gri_init
  14.     .xdef    gr2_init
  15.     .xref    pcg_data
  16.     .xref    pal_data
  17.     .xref    adpcm_data
  18.  
  19.     .text
  20.     .even
  21. *---------------------------------------
  22. *    âOâèâhÅëè·ë╗
  23. *
  24. gri_init:
  25.     move.w    #8,C_H_X(a1)
  26.     move.w    #24,C_H_Y(a1)
  27.     move.w    #16,C_HD_X(a1)
  28.     move.w    #48,C_HD_Y(a1)
  29.     move.w    #48,C_MD_X1(a1)
  30.     move.w    #240,C_MD_X2(a1)
  31.     move.w    #40,C_MD_Y1(a1)
  32.     move.w    #248,C_MD_Y2(a1)
  33.     move.w    #7,C_SA_F(a1)
  34.     move.w    #5,C_SSA_F(a1)
  35.     move.l    #gri_motion,C_A_DT(a1)
  36.     move.l    #gri_display,C_PCG_D(a1)
  37.     move.l    #gri_move_data,C_JOY(a1)
  38.     move.l    #gri_attack_data,C_HIT_D(a1)
  39.     move.l    #gri_se_data,C_PCM_D(a1)
  40.  
  41.     move.w    #$0000,BG_CTRL            * âXâvâëâCâgò\Īénéeée
  42.  
  43.     bsr    gri_pcg_move
  44.  
  45.     move.w    C_COL(a1),d1
  46.     add.w    d1,d1
  47.     add.w    d1,d1
  48.     lea.l    gri_palette,a4
  49.     movea.l    0(a4,d1.w),a4
  50.     move.w    #8-1,d1
  51. @@:
  52.     move.l    (a4)+,(a3)+
  53.     dbra    d1,@b
  54.  
  55.     move.w    #$0200,BG_CTRL            * âXâvâëâCâgò\Īéném
  56.     rts
  57. *---------------------------------------
  58. *    ânâCâpü[âOâèâhÅëè·ë╗
  59. *
  60. gr2_init:
  61.     move.w    #16,C_H_X(a1)
  62.     move.w    #24,C_H_Y(a1)
  63.     move.w    #32,C_HD_X(a1)
  64.     move.w    #48,C_HD_Y(a1)
  65.     move.w    #48,C_MD_X1(a1)
  66.     move.w    #240,C_MD_X2(a1)
  67.     move.w    #40,C_MD_Y1(a1)
  68.     move.w    #248,C_MD_Y2(a1)
  69.     move.w    #7,C_SA_F(a1)
  70.     move.w    #5,C_SSA_F(a1)
  71.     move.l    #gr2_motion,C_A_DT(a1)
  72.     move.l    #gr2_display,C_PCG_D(a1)
  73.     move.l    #gri_move_data,C_JOY(a1)
  74.     move.l    #gr2_attack_data,C_HIT_D(a1)
  75.     move.l    #gri_se_data,C_PCM_D(a1)
  76.  
  77.     move.w    #$0000,BG_CTRL            * âXâvâëâCâgò\Īénéeée
  78.  
  79.     bsr    gri_pcg_move
  80.  
  81.     movea.l    #pal_data+GR2_C,a4
  82.     move.w    #8-1,d1
  83. @@:
  84.     move.l    (a4)+,(a3)+
  85.     dbra    d1,@b
  86.  
  87.     move.w    #$0200,BG_CTRL            * âXâvâëâCâgò\Īéném
  88.     rts
  89. *---------------------------------------
  90. *    âOâèâhéoébéfô]æù
  91. *
  92. gri_pcg_move:
  93.     lea.l    pcg_data,a4
  94.     adda.l    #GRI,a4
  95.  
  96.     movea.l    a2,a6
  97.     move.w    #3776-1,d1
  98. @@:
  99.     move.l    (a4)+,(a2)+
  100.     dbra    d1,@b
  101.     adda.l    #15744,a6
  102.     move.w    #160-1,d1
  103. @@:
  104.     move.l    (a4)+,(a6)+
  105.     dbra    d1,@b
  106.     rts
  107. *---------------------------------------
  108. *    âOâèâhò\Ī
  109. *
  110. gri_display:
  111.     move.w    C_M_F(a1),d0
  112.     add.w    d0,d0
  113.     move.w    display_tbl(pc,d0.w),d0
  114.     jmp    display_tbl(pc,d0.w)
  115. *---------------------------------------
  116.     .even
  117. display_tbl:
  118.     .dc.w    gri_n-display_tbl,gri_attack-display_tbl
  119.     .dc.w    gri_hit-display_tbl,gri_win-display_tbl,gri_g-display_tbl
  120.     .dc.w    gri_attack-display_tbl,0,gri_attack-display_tbl
  121. *---------------------------------------
  122. gri_attack:
  123.     move.w    C_AK_F(a1),d0
  124.     add.w    d0,d0
  125.     move.w    d0,d1
  126.     add.w    d0,d0
  127.     add.w    d1,d0
  128.     move.w    C_AM_F(a1),d1
  129.     add.w    d1,d1
  130.     add.w    d1,d0
  131.     move.w    attack_tbl(pc,d0.w),d0
  132.     jmp    attack_tbl(pc,d0.w)
  133. *---------------------------------------
  134.     .even
  135. attack_tbl:
  136.     .dc.w    low_s-attack_tbl,low_a-attack_tbl,low_t-attack_tbl
  137.     .dc.w    mid_s-attack_tbl,mid_a-attack_tbl,mid_t-attack_tbl
  138.     .dc.w    high-attack_tbl,high-attack_tbl,high-attack_tbl
  139.     .dc.w    gri_sa_s-attack_tbl,gri_sa_a-attack_tbl,0
  140.     .dc.w    gri_ssa_s-attack_tbl,gri_ssa_a-attack_tbl,gri_ssa_t-attack_tbl
  141. *---------------------------------------
  142. *    ânâCâpü[âOâèâhò\Ī
  143. *
  144. gr2_display:
  145.     move.w    C_M_F(a1),d0
  146.     add.w    d0,d0
  147.     move.w    display_tbl2(pc,d0.w),d0
  148.     jmp    display_tbl2(pc,d0.w)
  149. *---------------------------------------
  150.     .even
  151. display_tbl2:
  152.     .dc.w    gri_n-display_tbl2,gr2_attack-display_tbl2
  153.     .dc.w    gri_hit-display_tbl2,gri_win-display_tbl2,gri_g-display_tbl2
  154.     .dc.w    gr2_attack-display_tbl2,0,gr2_attack-display_tbl2
  155. *---------------------------------------
  156. gr2_attack:
  157.     move.w    C_AK_F(a1),d0
  158.     add.w    d0,d0
  159.     move.w    d0,d1
  160.     add.w    d0,d0
  161.     add.w    d1,d0
  162.     move.w    C_AM_F(a1),d1
  163.     add.w    d1,d1
  164.     add.w    d1,d0
  165.     move.w    attack_tbl2(pc,d0.w),d0
  166.     jmp    attack_tbl2(pc,d0.w)
  167. *---------------------------------------
  168.     .even
  169. attack_tbl2:
  170.     .dc.w    low_s-attack_tbl2,low_a-attack_tbl2,low_t-attack_tbl2
  171.     .dc.w    mid_s-attack_tbl2,mid_a-attack_tbl2,mid_t-attack_tbl2
  172.     .dc.w    gri_ssa_s-attack_tbl2,gri_ssa_a-attack_tbl2,gri_ssa_t-attack_tbl2
  173.     .dc.w    gr2_sa_s-attack_tbl2,gr2_sa_a-attack_tbl2,0
  174.     .dc.w    gr2_ssa-attack_tbl2,gr2_ssa-attack_tbl2,gr2_ssa-attack_tbl2
  175. *---------------------------------------
  176. gri_motion:
  177.     .dc.w    5,6,15
  178.     .dc.w    8,4,20
  179.     .dc.w    0,0,25
  180.     .dc.w    8,40,0
  181.     .dc.w    10,8,40
  182. gri_attack_data:
  183.     .dc.w    32,-2,14,6,28,12,5,$0500,1,10
  184.     .dc.w    38,0,22,8,44,16,20,$0500,1,15
  185.     .dc.w    0,0,4,4,8,8,35,$0500,2,20
  186.     .dc.w    24,0,8,8,16,16,30,$0500,1,20
  187.     .dc.w    48,0,32,24,64,48,80,$0500,1,40
  188. gr2_motion:
  189.     .dc.w    5,3,15
  190.     .dc.w    8,3,20
  191.     .dc.w    10,8,40
  192.     .dc.w    8,40,0
  193.     .dc.w    0,0,40
  194. gr2_attack_data:
  195.     .dc.w    32,-2,14,6,28,12,5,$0500,1,10
  196.     .dc.w    38,0,22,8,44,16,20,$0500,1,15
  197.     .dc.w    48,0,32,24,64,48,40,$0500,1,40
  198.     .dc.w    24,0,4,20,8,40,30,$0500,1,30
  199.     .dc.w    0,0,4,4,8,8,70,$0500,2,40
  200. gri_move_data:
  201.     .dc.w     0, 0
  202.     .dc.w     0,-2
  203.     .dc.w     0, 2
  204.     .dc.w     0, 0
  205.     .dc.w    -2, 0
  206.     .dc.w    -2,-2
  207.     .dc.w    -2, 2
  208.     .dc.w     0, 0
  209.     .dc.w     2, 0
  210.     .dc.w     2,-2
  211.     .dc.w     2, 2
  212. gri_se_data:
  213.     .dc.l    adpcm_data+GRID            * ÄπìUîéÄnô«é`écéoébél
  214.     .dc.w    $b908
  215.     .dc.w    2612
  216.     .dc.w    0
  217.     .dc.l    adpcm_data+GRID
  218.     .dc.w    $b904
  219.     .dc.w    2612
  220.     .dc.w    0
  221.     .dc.l    adpcm_data+GRID
  222.     .dc.w    $f904
  223.     .dc.w    2612
  224.     .dc.w    0
  225.     .dc.l    adpcm_data+GRID
  226.     .dc.w    $b908
  227.     .dc.w    2612
  228.     .dc.w    1
  229.     .dc.l    adpcm_data+GRID
  230.     .dc.w    $f904
  231.     .dc.w    2612
  232.     .dc.w    1
  233.  
  234.     .dc.l    adpcm_data+GYOH
  235.     .dc.w    $f908
  236.     .dc.w    706
  237.     .dc.w    0
  238.     .dc.l    adpcm_data+GYOH
  239.     .dc.w    $f904
  240.     .dc.w    706
  241.     .dc.w    0
  242.     .dc.l    adpcm_data+GYOH
  243.     .dc.w    $f900
  244.     .dc.w    706
  245.     .dc.w    1
  246.     .dc.l    adpcm_data+GYOH
  247.     .dc.w    $f900
  248.     .dc.w    706
  249.     .dc.w    1
  250.     .dc.l    adpcm_data+GYOH
  251.     .dc.w    $f900
  252.     .dc.w    706
  253.     .dc.w    1
  254.  
  255.     .dc.l    adpcm_data+BOKAN
  256.     .dc.w    $f908
  257.     .dc.w    1014
  258.     .dc.w    2
  259.     .dc.l    adpcm_data+BOKAN
  260.     .dc.w    $f904
  261.     .dc.w    1014
  262.     .dc.w    2
  263.     .dc.l    adpcm_data+BOKAN
  264.     .dc.w    $f900
  265.     .dc.w    1014
  266.     .dc.w    3
  267.     .dc.l    adpcm_data+BOKAN
  268.     .dc.w    $f900
  269.     .dc.w    1014
  270.     .dc.w    3
  271.     .dc.l    adpcm_data+BOKAN
  272.     .dc.w    $f900
  273.     .dc.w    1014
  274.     .dc.w    3
  275.  
  276.     .dc.l    adpcm_data+KO            * éjéné`écéoébél
  277.     .dc.w    $f908
  278.     .dc.w    2880
  279.     .dc.w    4
  280.  
  281.     .dc.l    0                * Åƒé┐é`écéoébél
  282.     .dc.w    0
  283.  
  284. gri_palette:
  285.     .dc.l    pal_data+GRI_C,pal_data+GRI_C+32
  286. *---------------------------------------
  287.     .include    gri_n.inc
  288. *---------------------------------------
  289.     .include    gri_am.inc
  290. *---------------------------------------
  291.     .include    gri_al.inc
  292. *---------------------------------------
  293.     .include    gri_ah.inc
  294. *---------------------------------------
  295.     .include    gri_h.inc
  296. *---------------------------------------
  297.     .include    gri_w.inc
  298. *---------------------------------------
  299.     .include    gri_g.inc
  300. *---------------------------------------
  301.     .include    gri_sa.inc
  302. *---------------------------------------
  303.     .include    gri_ssa.inc
  304. *---------------------------------------
  305.     .include    gr2_ss.inc
  306. *---------------------------------------
  307.     .end
  308.